home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1995…tember: Reference Library / Dev.CD Sep 95 RL / Dev.CD Sep 95 RL.toast / mac / Technical Documentation / develop / develop Issue 5 code / Lisp Mini-App / Program / start-application.lisp < prev    next >
Encoding:
Text File  |  1992-04-08  |  1.2 KB  |  41 lines  |  [TEXT/CCL2]
  1. #|
  2.    start-application.lisp
  3.  
  4.    Defines the top level functions that get called to start the
  5.    Mini-Application, and then starts it.
  6.  
  7.    For further info, see files "About Mini-App" and "Instructions".
  8.  
  9.  
  10.    Copyright 1990, 1991 by Ruben Kleiman for Apple Computer, Inc.
  11.  
  12.    Change History.
  13.    03-09-92 slm  Updated file header comments.
  14.    03-06-92 slm  Extracted definitions from superseded file 
  15.                     "mini-application-loader.lisp".
  16.                  Extracted initiation call from superseded file
  17.                     "example.lisp".
  18.  
  19. |#
  20.  
  21. ;;; __________________________________________________________________________
  22. ;;; Define the application
  23.  
  24. ;;; We will call this once when everything is loaded. This gets
  25. ;;; everything going.
  26. ;;;
  27. (defun start-application ( )
  28.   (when (welcome-accepted?) ; Display welcome message
  29.     (show-menus)            ; Initialize the menubar
  30.     (eval-enqueue `(format t "~%Welcome To Our Mini Application!"))))
  31.  
  32. ;;; Return non-nil value if user wants the application to start.
  33. ;;;
  34. (defun welcome-accepted? ()
  35.   (y-or-n-dialog "Welcome To My App.  Ready, Set, Go?"
  36.                  :yes-text "Go Dude!"
  37.                  :no-text "Nope"))
  38.  
  39. ;end of file start-application.lisp
  40. ;------------------------------------------------
  41.